home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr26
/
blrmu13.zip
/
DAFEM.ASM
< prev
next >
Wrap
Assembly Source File
|
1993-06-01
|
3KB
|
98 lines
page ,132
title dafem ( display available, free, extended memory ) 09/13/92 - 07:00 pm
;
dv equ 32
crl equ (offset eop - sop + 15) shr 4
;
code segment para public
;
assume cs:code
;
org 0 ; start of PSP
sop equ $ ; start of program
org 256 ; start of COM file
;
go: jmp dafem ; jump around msg
;
; available memory message
;
amm db 13,10
db ' ┌────────────────────────────────────┐'
db 13,10
mnm db ' │ maximum normal memory - kb │'
db 13,10
nmf db ' │ normal memory free - kb │'
db 13,10
mem db ' │ maximum extended memory - kb │'
db 13,10
aemp db ' │ available EMS memory - kb │'
db 13,10
db ' └────────────────────────────────────┘'
db 13,10,'$'
;
dafem proc near
;
mov ah,74 ; modify memory alloc
; mov bx,crl ; calculate real length
int 33 ; DOS call
;
mov ah,74 ; modify mem alloc
mov bx,65535 ; give me all memory
int 33 ; DOS call
mov ax,bx ; save paragraph value
;
xor dx,dx ; clear hi reg
mov cx,64 ; set div value
div cx ; convert to kb
;
mov bx,3 ; len of dest
lea si,nmf+dv+1 ; ptr to dest
call cbwtas ; convert
;
; get-format normal / extended memory
;
int 18 ; normal memory
;
mov bx,3 ; len of dest
lea si,mnm+dv+1 ; ptr to dest
call cbwtas ; convert
;
mov ah,136 ; extended memory
int 21
;
mov bx,4 ; len of dest
lea si,mem+dv ; ptr to dest
call cbwtas
;
mov ah,66 ; expanded memory pages
int 103 ; int 67h
;
mov ax,bx ; save result
;
shl ax,1
shl ax,1
shl ax,1
shl ax,1
;
mov bx,5 ; len of dest
lea si,aemp+dv-1 ; ptr to dest
call cbwtas
;
lea dx,amm ; point to msg
mov ah,9 ; print string fct
int 33 ; DOS call
;
mov al,0 ; set return code = 0
mov ah,76 ; exit
int 33 ; DOS fct
;
dafem endp
;
include cbwtas.prc ; convert binary word to ascii string
;
eop equ $ ; end of program
;
code ends
;
end go